﻿Public Class Form3
    Dim elemento As String = ""
    Dim costo As String = ""
    Dim linea As String = "***************************"
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        ''Imprimir
        Me.Visible = False

    End Sub
    Public Sub Parametros(ByVal a As String, ByVal b As String, ByVal c As String, ByVal d As String, ByVal e As String, ByVal total As String)
        elemento = "Tipo de menú: " + d & Global.Microsoft.VisualBasic.ChrW(10) & "Pago con: " & e & Global.Microsoft.VisualBasic.ChrW(10) & linea & Global.Microsoft.VisualBasic.ChrW(10) & a & Global.Microsoft.VisualBasic.ChrW(10) & b & Global.Microsoft.VisualBasic.ChrW(10) & c & Global.Microsoft.VisualBasic.ChrW(10) & linea & Global.Microsoft.VisualBasic.ChrW(10) & "Importe a pagar: " & total

        RichTextBox1.Text = elemento
    End Sub
End Class